home *** CD-ROM | disk | FTP | other *** search
/ ROM Magic / ROM Magic.iso / pc / 01_kinb / k_hy_sh / 00037.ls < prev    next >
Encoding:
Text File  |  1994-10-06  |  1.3 KB  |  68 lines
  1. on startMovie
  2.   global outtime
  3.   if not soundBusy(1) then
  4.     sound playFile 1, "K_Sound"
  5.   end if
  6.   delay()
  7.   when timeOut then go to marker (1)
  8.   set the timeoutLength to 5 * 60
  9.   startTimer()
  10. end
  11.  
  12. on idle
  13.   if not soundBusy(1) then
  14.     sound playFile 1, "K_Sound"
  15.   end if
  16. end
  17.  
  18. on stepMovie
  19.   if not soundBusy(1) then
  20.     sound playFile 1, "K_Sound"
  21.   end if
  22.   if the frame = 8 then
  23.     delay()
  24.     set the timeoutLength to 5 * 60
  25.     when timeOut then go to 1 of movie "K_Main"   ---MENU
  26.     startTimer()
  27.   else
  28.     if the frame = 5 then
  29.       delay()
  30.       set the timeoutLength to 10 * 60
  31.       startTimer()
  32.     else
  33.       if the frame = 7 then
  34.         delay()
  35.         set the timeoutLength to 10 * 60
  36.         startTimer()
  37.       else
  38.         delay()
  39.         set the timeoutLength to 5 * 60
  40.         when timeOut then go to marker (1)
  41.         startTimer()
  42.       end if
  43.     end if
  44.   end if
  45. end
  46.  
  47. on teisi
  48.   puppetSprite(6, 1)
  49.   set the castNum of sprite 6 to 450
  50.   updateStage()
  51.   when timeOut then 
  52.   delay()
  53.   set the timeoutLength to 10 * 60 * 60
  54.   when timeOut then go to marker (1)
  55.   startTimer()
  56.   set the castNum of sprite 6 to 449
  57.   puppetSprite(6, 0)
  58. end
  59.  
  60. on zokkou
  61.   puppetSprite(6, 0)
  62.   if the frame = 8 then
  63.     go(1, "K_Main")
  64.   else
  65.     go(marker(1))
  66.   end if
  67. end
  68.